home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOS3.DMS / AMOS3.adf / Extensions / Equ.s < prev    next >
Text File  |  1978-10-10  |  18KB  |  1,103 lines
  1.  
  2. *        Version 1.1
  3.  
  4. ***********************************************************
  5. *
  6. *        AMOS EQUATES DEFINITION
  7. *
  8. *        By Francois Lionet
  9. *        AMOS (c) 1990 Mandarin / Jawx
  10. *
  11. ***********************************************************
  12. *        This file is public domain!
  13. ***********************************************************
  14. *    Here is all AMOS internal data offsets and macro 
  15. * definitions. More on all AMOS jumps tables in the AMOS 
  16. * club newsletter!
  17. ***********************************************************
  18.  
  19. EntNul:        equ $80000000
  20.  
  21. Circuits:    equ $dff000
  22.  
  23. IntReq:        equ $9c
  24. IntEna:        equ $9a
  25. DmaCon:        equ $96
  26. DmaConR:    equ $02
  27.  
  28. Color00:    equ $180
  29. VhPosR:        equ $6
  30.  
  31. ; Copper
  32. Cop1lc:        equ $80
  33. Cop2lc:        equ $84
  34. CopJmp1:    equ $88
  35. CopJmp2:    equ $8a
  36.  
  37. ; Souris
  38. CiaAprA:    equ $bfe001
  39. Joy0Dat:    equ $a
  40. Joy1Dat:    equ $c
  41. JoyTest:    equ $36
  42. PotGo:        equ $34
  43. PotGoR:        equ $16
  44. Pot0Dat:    equ $12
  45. Pot1Dat:    equ $14
  46.  
  47. ; Bitplanes
  48. BplCon0:    equ $100
  49. BplCon1:    equ $102
  50. BplCon2:    equ $104
  51. Bpl1PtH:    equ $0e0
  52. Bpl1PtL:    equ $0e2
  53. Bpl1Mod:    equ $108
  54. Bpl2Mod:    equ $10a
  55. DiwStrt:    equ $08e
  56. DiwStop:    equ $090
  57. DdfStrt:    equ $092
  58. DdfStop:    equ $094
  59.  
  60. ; Blitter
  61. BltSize:    equ $058
  62. BltAdA:        equ $050
  63. BltAdB:        equ $04c
  64. BltAdC:        equ $048
  65. BltAdD:        equ $054
  66. BltModA:    equ $064
  67. BltModB:    equ $062
  68. BltModC:    equ $060
  69. BltModD:    equ $066
  70. BltCon0:    equ $040
  71. BltCon1:    equ $042
  72. BltDatA:    equ $074
  73. BltDatB:    equ $072
  74. BltDatC:    equ $070
  75. BltDatD:    equ $000
  76. BltMaskG:    equ $044
  77. BltMaskD:    equ $046
  78.  
  79. ;-------------> Systeme
  80. ExecBase:    equ 4
  81. StartList:    equ 38
  82. Forbid:        equ -132
  83. Permit:        equ -138
  84. OwnBlitter:    equ -30-426
  85. DisOwnBlitter:    equ -30-432
  86. WaitBlit:    equ -228
  87. OpenLib:    equ -552
  88. CloseLib:    equ -414
  89. AllocMem:    equ -198
  90. AvailMem:    equ -216
  91. FreeMem:    equ -210
  92. Chip:        equ $02
  93. Fast:        equ $04
  94. Clear:        equ $10000
  95. SetFunction:    equ -420
  96. CloseWB:    equ -78
  97. FindTask:    equ -294
  98. AddPort:    equ -354
  99. RemPort:    equ -360
  100. OpenDev:    equ -444
  101. CloseDev:    equ -450
  102. DoIO:        equ -456
  103. SendIO:        equ -462
  104.  
  105. ;-------------> Intuition
  106. OpenScreen:    equ -198
  107. CloseScreen:    equ -66
  108. ScreenToBack:    equ -$F6
  109. OpenWindow:    equ -204
  110. CloseWindow:    equ -72
  111. LoadView:    equ -$DE
  112. CUFLayer:    equ -36
  113. DelLayer:    equ -90
  114.  
  115. ;-------------> Graphic library
  116. InitRastPort:    equ -198
  117. InitTmpRas:    equ -$1d4
  118. TextLength:    equ -54
  119. Text:        equ -60
  120. SetFont:    equ -66
  121. OpenFont:    equ -72
  122. CloseFont:    equ -78
  123. AskSoftStyle:    equ -84
  124. SetSoftStyle:    equ -90
  125. RMove:        equ -240
  126. RDraw:        equ -246
  127. DrawEllipse:    equ -$b4
  128. AreaEllipse:    equ -$ba
  129. AreaMove:    equ -252
  130. AreaDraw:    equ -258
  131. AreaEnd:    equ -264
  132. InitArea:    equ -282
  133. RectFill:    equ -306
  134. ReadPixel:    equ -318
  135. WritePixel:    equ -324
  136. Flood:        equ -330
  137. PolyDraw:    equ -336
  138. ScrollRaster:    equ -396
  139. AskFont:    equ -474
  140. AddFont:    equ -480
  141. RemFont:    equ -486
  142. ClipBlit:    equ -552
  143. BltBitMap:    equ -30
  144. SetAPen:    equ -342
  145. SetBPen:    equ -348
  146. SetDrMd:    equ -354
  147. AvailFonts:    equ -$24
  148. OpenDiskFont    equ -$1e
  149.  
  150. ;-------------> Dos
  151. Input:        equ -54
  152. WaitChar:    equ -204
  153. Read:        equ -42
  154.  
  155. Execall:    MACRO
  156.         move.l    $4,a6
  157.         jsr    \1(a6)
  158.         ENDM
  159. GfxCall:    MACRO
  160.         movem.l    d0-d7/a0-a6,-(sp)
  161.         move.l    GfxBase,a6
  162.         jsr    \1(a6)
  163.         movem.l    (sp)+,d0-d7/a0-a6
  164.         ENDM
  165.  
  166. *************** DOS
  167. DosOpen:    equ -30
  168. DosClose:    equ -36
  169. DosRead:    equ -42
  170. DosWrite:    equ -48
  171. DosSeek:    equ -66
  172. DosDel:        equ -72
  173. DosRen:        equ -78
  174. DosLock:    equ -84
  175. DosUnLock:    equ -90
  176. DosDupLock:    equ -96
  177. DosExam:    equ -102
  178. DosExNext:    equ -108
  179. DosInfo:    equ -114
  180. DosMkDir:    equ -120
  181. DosCuDir:    equ -126
  182. DosIOErr:    equ -132
  183. DosDProc:    equ -174
  184. DosParent:    equ -210
  185. DosLoadSeg:    equ -150
  186. DosULoadSeg:    equ -156
  187. DosWChar:    equ -204
  188.  
  189. *************** FLOAT
  190. SPFix:        equ -30
  191. SPFlt:        equ -36
  192. SPCmp:        equ -42
  193. SPTst:        equ -48
  194. SPAbs:        equ -54
  195. SPNeg:        equ -60
  196. SPAdd:        equ -66
  197. SPSub:        equ -72
  198. SPMul:        equ -78
  199. SPDiv:        equ -84
  200. SPFloor:    equ -90
  201. SPCeil:        equ -96
  202.  
  203. SPATan:        equ -30
  204. SPSin:        equ -36
  205. SPCos:        equ -42
  206. SPTan:        equ -48
  207. SPSinCos:    equ -54
  208. SPSinH:        equ -60
  209. SPCosH:        equ -66
  210. SPTanH:        equ -72
  211. SPExp:        equ -78
  212. SPLog:        equ -84
  213. SPPow:        equ -90
  214. SPSqrt:        equ -96
  215. SPTIeee:    equ -102
  216. SPFIeee:    equ -108
  217. SPASin:        equ -114
  218. SPACos:        equ -120
  219. SPLog10:    equ -126
  220.  
  221. *************** AMOS system library
  222. SyVect:        equ $100
  223.  
  224. Inkey:        equ 0
  225. ClearKey:    equ 1
  226. Shifts:        equ 2
  227. Instant:    equ 3
  228. KeyMap:        equ 4
  229. Joy:        equ 5
  230. PutKey:        equ 6
  231. Hide:        equ 7
  232. Show:        equ 8
  233. ChangeM:    equ 9
  234. XyMou:        equ 10
  235. XyHard:        equ 11
  236. XyScr:        equ 12
  237. MouseKey:    equ 13
  238. SetM:        equ 14
  239. ScIn:        equ 15
  240. XyWin:        equ 16
  241. LimitM:        equ 17
  242. ZoHd:        equ 18
  243. ResZone:    equ 19
  244. RazZone:    equ 20
  245. SetZone:    equ 21
  246. GetZone:    equ 22
  247. WaitVbl:    equ 23
  248. SetHs:        equ 24
  249. USetHs:        equ 25
  250. SetFunk:    equ 26
  251. GetFunk:    equ 27
  252. AffHs:        equ 28
  253. SetSpBank:    equ 29
  254. NXyaHs:        equ 30
  255. XOffHs:        equ 31
  256. OffHs:        equ 32
  257. ActHs:        equ 33
  258. SBufHs:        equ 34
  259. StActHs:    equ 35
  260. ReActHs:    equ 36
  261. StoreM:        equ 37
  262. RecallM:    equ 38
  263. PriHs:        equ 39
  264. AMALTok:    equ 40
  265. AMALCre:    equ 41
  266. AMALMvO:    equ 42
  267. AMALDAll:    equ 43
  268. AMAL:        equ 44
  269. AMALReg:    equ 45
  270. AMALClr:    equ 46
  271. AMALFrz:    equ 47
  272. AMALUFrz:    equ 48
  273. SetBob:        equ 49
  274. OffBob:        equ 50
  275. OffBobS:    equ 51
  276. ActBob:        equ 52
  277. AffBob:        equ 53
  278. EffBob:        equ 54
  279. SyChip:        equ 55
  280. SyFast:        equ 56
  281. LimBob:        equ 57
  282. ZoGr:        equ 58
  283. SprGet:        equ 59
  284. MaskMk:        equ 60
  285. SpotHot:    equ 61
  286. ColBob:        equ 62
  287. ColGet:        equ 63
  288. ColSpr:        equ 64
  289. SetSync:    equ 65
  290. Synchro:    equ 66
  291. PlaySet:    equ 67
  292. XYBob:        equ 68
  293. XYSp:        equ 69
  294. PutBob:        equ 70
  295. Patch:        equ 71
  296. MouRel:        equ 72
  297. LimitMEc:    equ 73
  298. SyFree:        equ 74
  299. SetHCol:    equ 75
  300. GetHCol:    equ 76
  301. MovOn:        equ 77
  302. KeySpeed:    equ 78
  303. ChanA:        equ 79
  304. ChanM:        equ 80
  305. SPrio:        equ 81
  306.  
  307. SyCall:        MACRO
  308.         move.l    SyVect,a0
  309.         jsr    \1*4(a0)
  310.         ENDM
  311. SyCalA:        MACRO
  312.         lea    \2,a1
  313.         move.l    SyVect,a0
  314.         jsr    \1*4(a0)
  315.         ENDM
  316. SyCalD:        MACRO
  317.         moveq    #\2,d1
  318.         move.l    SyVect,a0
  319.         jsr    \1*4(a0)
  320.         ENDM
  321. SyCal2:        MACRO
  322.         moveq    #\2,d1
  323.         move.l    #\3,a1
  324.         move.l    SyVect,a0
  325.         jsr    \1*4(a0)
  326.         ENDM
  327.  
  328. ***********************************************************
  329. *        EQUATES BOBS
  330.         RsReset
  331. BbPrev:        rs.l 1
  332. BbNext:        rs.l 1
  333. BbNb:        rs.w 1
  334. BbAct:        rs.w 1
  335. BbX:        rs.w 1
  336. BbY:        rs.w 1
  337. BbI:        rs.w 1
  338. BbEc:        rs.l 1
  339. BbAAEc:        rs.l 1
  340. BbAData:    rs.l 1
  341. BbAMask:    rs.l 1
  342. BbNPlan:    rs.w 1
  343. BbAPlan:    rs.w 1
  344. BbASize:    rs.w 1
  345. BbAMaskG:    rs.w 1
  346. BbAMaskD:    rs.w 1
  347. BbTPlan:    rs.w 1
  348. BbTLigne:    rs.w 1
  349. BbAModO:    rs.w 1
  350. BbAModD:    rs.w 1
  351. BbACon:        rs.w 1
  352. BbACon0:    rs.w 1
  353. BbACon1:    rs.w 1
  354. BbADraw:    rs.l 1
  355. BbLimG:        rs.w 1
  356. BbLimD:        rs.w 1
  357. BbLimH:        rs.w 1
  358. BbLimB:        rs.w 1
  359.  
  360. BbDecor:    rs.w 1
  361. BbEff:        rs.w 1
  362. BbDCur1:    rs.w 1
  363. BbDCur2:    rs.w 1
  364. BbDCpt:        rs.w 1
  365. BbEMod:        rs.w 1
  366. BbECpt:        rs.w 1
  367. BbEAEc:        rs.w 1
  368. BbESize:    rs.w 1
  369. BbETPlan:    rs.w 1
  370. * Datas pour une sauvegarde de decor
  371. BbDABuf:    rs.l 1        * 0  Adresse buffer
  372. BbDLBuf:    rs.w 1        * 4  Longueur buffer
  373. BbDAEc:        rs.w 1        * 6  Decalage ecran
  374. BbDAPlan:    rs.l 1        * 8  Plans sauves
  375. BbDNPlan:    rs.l 1        * 12 Max plans
  376. BbDMod:        rs.w 1        * 16 Modulo ecran
  377. BbDASize:    rs.w 1        * 18 Taille blitter
  378. Decor:        equ 20        * 20 Taille totale
  379. * Datas pour seconde sauvegarde!
  380.         rs.l Decor
  381. BbLong:        equ __RS
  382.  
  383.  
  384.  
  385. *************** AMOS Screen library
  386.  
  387. BitHide:    equ 7
  388. BitClone:    equ 6
  389. BitDble:    equ 5
  390.         RsReset
  391.  
  392. * Bitmap address
  393. EcLogic:    rs.l 6
  394. EcPhysic    rs.l 6
  395. EcCurrent:    rs.l 6
  396.  
  397. * Datas!
  398. EcCon0:        rs.w 1
  399. EcCon2:        rs.w 1
  400. EcTx:        rs.w 1
  401. EcTy:        rs.w 1
  402. EcNPlan:    rs.w 1
  403. EcWX:        rs.w 1
  404. EcWY:        rs.w 1
  405. EcWTx:        rs.w 1
  406. EcWTy:        rs.w 1
  407. EcVX:        rs.w 1
  408. EcVY:        rs.w 1
  409. EcColorMap:    rs.w 1
  410. EcNbCol:    rs.w 1
  411. EcPal:        rs.w 32
  412. EcDEcran:    rs.l 1
  413.  
  414. EcTPlan:    rs.l 1
  415. EcWindow:    rs.l 1
  416. EcTxM:        rs.w 1
  417. EcTyM:        rs.w 1
  418. EcTLigne:    rs.w 1
  419. EcFlags:    rs.w 1
  420. EcDual:        rs.w 1
  421. EcWXr:        rs.w 1
  422. EcWTxr:        rs.w 1
  423. EcNumber:    rs.w 1
  424. EcAuto:        rs.w 1
  425.  
  426. * Link with AMAL
  427. EcAW:        rs.w 1
  428. EcAWX:        rs.w 1
  429. EcAWY:        rs.w 1
  430. EcAWT:        rs.w 1
  431. EcAWTX:        rs.w 1
  432. EcAWTY:        rs.w 1
  433. EcAV:        rs.w 1
  434. EcAVX:        rs.w 1
  435. EcAVY:        rs.w 1
  436. * Zone table
  437. EcAZones:    rs.l 1
  438. EcNZones:    rs.w 1
  439. * Save the backgrountd for window
  440. EcWiDec:    rs.w 1
  441. * Graphic functions
  442. EcInkA:        rs.b 1
  443. EcInkB:        rs.b 1
  444. EcMode:        rs.b 1
  445. EcOutL:        rs.b 1
  446. EcLine:        rs.w 1
  447. EcCont:        rs.w 1
  448. EcX:        rs.w 1
  449. EcY:        rs.w 1
  450. EcPat:        rs.l 1
  451. EcPatL:        rs.w 1
  452. EcPatY:        rs.w 1
  453. EcClipX0:    rs.w 1
  454. EcClipY0:    rs.w 1
  455. EcClipX1:    rs.w 1
  456. EcClipY1:    rs.w 1
  457. EcFontFlag:    rs.w 1
  458. EcText:        rs.b 14 
  459. EcFInkA:    rs.b 1
  460. EcFInkB:    rs.b 1
  461. EcFInkC:    rs.b 1
  462. EcIInkA:    rs.b 1
  463. EcIInkB:    rs.b 1
  464. EcIInkC:    rs.b 1
  465. EcFPat:        rs.w 1
  466. EcIPat:        rs.w 1
  467. * Cursor saving
  468. EcCurS:        rs.b 8*6
  469. ; Length of a screen
  470. EcLong:        equ __Rs
  471.  
  472. ; Y Screen base
  473. EcYBase:    equ $1000
  474. EcYStrt:    equ EcYBase+26
  475. PalMax:        equ 16
  476.  
  477. ***********************************************************
  478. *        FUNCTIONS
  479. ***********************************************************
  480.  
  481. EcVect:        equ $104
  482.  
  483. Raz:        equ 0
  484. CopMake:    equ 1
  485. *        equ 2
  486. Cree:        equ 3
  487. Del:        equ 4
  488. First:        equ 5
  489. Last:        equ 6
  490. Active:        equ 7
  491. CopForce:    equ 8
  492. View:        equ 9
  493. OffSet:        equ 10
  494. Visible:    equ 11
  495. DelAll:        equ 12
  496. GCol:        equ 13
  497. SCol:        equ 14
  498. SPal:        equ 15
  499. SColB:        equ 16
  500. FlRaz:        equ 17
  501. Flash:        equ 18
  502. ShRaz:        equ 19
  503. Shift:        equ 20
  504. EHide:        equ 21
  505. CBlGet:        equ 22
  506. CBlPut:        equ 23
  507. CBlDel:        equ 24
  508. CBlRaz:        equ 25
  509. Libre:        equ 26
  510. CCloEc:        equ 27
  511. Current:    equ 28
  512. Double:        equ 29
  513. SwapSc:        equ 30
  514. SwapScS:    equ 31
  515. AdrEc:        equ 32
  516. SetDual:    equ 33
  517. PriDual:    equ 34
  518. ClsEc:        equ 35
  519. Pattern:    equ 36
  520. GFonts:        equ 37
  521. FFonts:        equ 38
  522. GFont:        equ 39
  523. SFont:        equ 40
  524. SetClip:    equ 41
  525. BlGet:        equ 42
  526. BlDel:        equ 43
  527. BlRaz:        equ 44
  528. BlPut:        equ 45
  529. VerSli:        equ 46
  530. HorSli:        equ 47
  531. SetSli:        equ 48
  532. MnStart:    equ 49
  533. MnStop:        equ 50
  534. RainDel:    equ 51
  535. RainSet:    equ 52
  536. RainDo:        equ 53
  537. RainHide:    equ 54
  538. RainVar:    equ 55
  539. FadeOn:        equ 56
  540. FadeOf:        equ 57
  541. CopOnOff:    equ 58
  542. CopReset:    equ 59
  543. CopSwap:    equ 60
  544. CopWait:    equ 61
  545. CopMove:    equ 62
  546. CopMoveL:    equ 63
  547. CopBase:    equ 64
  548. AutoBack1:    equ 65
  549. AutoBack2:    equ 66
  550. AutoBack3:    equ 67
  551. AutoBack4:    equ 68
  552. SuPaint:    equ 69
  553.  
  554. EcCall:        MACRO
  555.         move.l    EcVect,a0
  556.         jsr    \1*4(a0)
  557.         ENDM
  558. EcCalA:        MACRO
  559.         lea    \2,a1
  560.         move.l    EcVect,a0
  561.         jsr    \1*4(a0)
  562.         ENDM
  563. EcCalD:        MACRO
  564.         moveq    #\2,d1
  565.         move.l    EcVect,a0
  566.         jsr    \1*4(a0)
  567.         ENDM
  568. EcCal2:        MACRO
  569.         moveq    #\2,d1
  570.         move.l    #\3,a1
  571.         move.l    EcVect,a0
  572.         jsr    \1*4(a0)
  573.         ENDM
  574.  
  575. *************** AMOS Window library
  576.  
  577. * Window structure
  578. WiPrev:        equ 0        
  579. WiNext:        equ WiPrev+4    
  580. WiFont:        equ WiNext+4    
  581. WiAdhg:        equ WiFont+4
  582. WiAdhgR:    equ WiAdhg+4
  583. WiAdhgI:    equ WiAdhgR+4
  584. WiAdCur:    equ WiAdhgI+4
  585. WiColor:    equ WiAdCur+4
  586. WiColFl:    equ WiColor+4*6
  587.  
  588. WiX:        equ WiColFl+4*6
  589. WiY:        equ WiX+2
  590. WiTx:        equ WiY+2
  591. WiTy:        equ WiTx+2
  592. WiTyCar:    equ WiTy+2
  593. WiTLigne:    equ WiTyCar+2
  594. WiTxR:        equ WiTLigne+2
  595. WiTyR:        equ WiTxR+2
  596. WiDxI:        equ WiTyR+2
  597. WiDyI:        equ WiDxI+2
  598. WiTxI:        equ WiDyI+2
  599. WiTyI:        equ WiTxI+2
  600. WiDxR:        equ WiTyI+2
  601. WiDyR:        equ WiDxR+2
  602. WiFxR:        equ WiDyR+2
  603. WiFyR:        equ WiFxR+2
  604. WiTyP:        equ WiFyR+2
  605. WiDBuf:        equ WiTyP+2
  606. WiTBuf:        equ WiDBuf+4
  607. WiTxBuf:    equ WiTBuf+4
  608.  
  609. WiPaper:    equ WiTxBuf+2
  610. WiPen:        equ WiPaper+2
  611. WiBorder:    equ WiPen+2
  612. WiFlags:    equ WiBorder+2
  613. WiGraph:    equ WiFlags+2
  614. WiNPlan:    equ WiGraph+2
  615. WiNumber:    equ WiNPlan+2
  616. WiSys:        equ WiNumber+2
  617. WiEsc:        equ WiSys+2
  618. WiEscPar:    equ WiEsc+2
  619. WiTab:        equ WiEscPar+2
  620.  
  621. WiBord:        equ WiTab+2
  622. WiBorPap:    equ WiBord+2
  623. WiBorPen:    equ WiBorPap+2
  624.  
  625. WiMx:        equ WiBorPen+2
  626. WiMy:        equ WiMx+2
  627. WiZoDx:        equ WiMy+2
  628. WiZoDy:        equ WiZoDx+2
  629.  
  630. WiCuDraw:    equ WiZoDy+2
  631. WiCuCol:    equ WiCuDraw+8
  632.  
  633. WiTitH:        equ WiCuCol+2
  634. WiTitB:        equ WiTitH+80
  635. WiLong:        equ WiTitB+80
  636. WiSAuto:    equ WiTitH
  637.  
  638. ***********************************************************
  639. *        WINDOW INSTRUCTIONS 
  640. ***********************************************************
  641.  
  642. WiVect:        equ $108
  643. AMOSLoaded    equ $10C
  644.  
  645. ChrOut:        equ 0
  646. Print:        equ 1
  647. Centre:        equ 2
  648. WindOp:        equ 3
  649. Locate:        equ 4
  650. QWindow:    equ 5
  651. WinDel:        equ 6
  652. SBord:        equ 7
  653. STitle:        equ 8
  654. GAdr:        equ 9
  655. MoveWi:        equ 10
  656. ClsWi:        equ 11
  657. SizeWi:        equ 12
  658. SCurWi:        equ 13
  659. XYCuWi:        equ 14
  660. XGrWi:        equ 15
  661. YGrWi:        equ 16
  662.     
  663. WiCall:        MACRO
  664.         move.l    WiVect,a0
  665.         jsr    \1*4(a0)
  666.         ENDM
  667. WiCalA:        MACRO
  668.         lea    \2,a1
  669.         move.l    WiVect,a0
  670.         jsr    \1*4(a0)
  671.         ENDM
  672. WiCalD:        MACRO
  673.         moveq    #\2,d1
  674.         move.l    WiVect,a0
  675.         jsr    \1*4(a0)
  676.         ENDM
  677. WiCal2:        MACRO
  678.         moveq    #\2,d1
  679.         move.l    #\3,a1
  680.         move.l    WiVect,a0
  681.         jsr    \1*4(a0)
  682.         ENDM
  683.  
  684. **************    Equates basic
  685. EcFonc:        equ 8
  686. EcEdit:        equ 9
  687. EcFsel:        equ 10
  688. EcReq:        equ 11
  689.  
  690. EdTx:        equ 78
  691. EdBTT:        equ 512+256
  692. NbEnd:        equ 10
  693. EcEBase        equ 45
  694. DEBase        equ EcEBase+35-1
  695. SpEBase     equ DEBase+25
  696. FkLong:        equ 26
  697. Shf:        equ %00000011
  698. Ctr:        equ %00001000
  699. Alt:        equ %00110000
  700. Ami:        equ %11000000
  701.  
  702. ***************    Menu definition
  703.         RsReset
  704. MnPrev:        rs.l     1
  705. MnNext:        rs.l     1
  706. MnLat:        rs.l    1
  707. MnNb:        rs.w    1
  708. MnFlag:        rs.w    1
  709. MnX:        rs.w    1
  710. MnY:        rs.w    1
  711. MnTx:        rs.w    1
  712. MnTy:        rs.w    1
  713. MnMX:        rs.w    1
  714. MnMY:        rs.w    1
  715. MnXX:        rs.w    1
  716. MnYY:        rs.w    1
  717. MnZone:        rs.w    1
  718. MnKFlag:    rs.b    1
  719. MnKAsc:        rs.b    1
  720. MnKSc:        rs.b     1
  721. MnKSh:        rs.b    1
  722. * Menu objects
  723. MnObF:        rs.l    1
  724. MnOb1:        rs.l    1
  725. MnOb2:        rs.l    1
  726. MnOb3:        rs.l    1
  727. MnAdSave:    rs.l    1
  728. MnDatas:    rs.l    1
  729. MnLData:    rs.w     1
  730. MnInkA1:    rs.b    1
  731. MnInkB1:    rs.b    1
  732. MnInkC1:    rs.b    1
  733. MnInkA2:    rs.b    1
  734. MnInkB2:    rs.b    1
  735. MnInkC2:    rs.b    1
  736. MnLong:        equ __Rs
  737.  
  738. * Flags
  739. MnFlat:        equ     0
  740. MnFixed:    equ     1
  741. MnSep:        equ     2
  742. MnBar:        equ     3
  743. MnOff:        equ     4
  744. MnTotal:    equ     5
  745. MnTBouge:    equ     6
  746. MnBouge:    equ     7
  747.  
  748. *************** Test control bits 
  749. BitControl:    equ     8
  750. BitMenu:    equ     9
  751. BitJump:    equ     10
  752. BitEvery:    equ     11
  753. BitEcrans:    equ     12
  754. BitBobs:    equ     13
  755. BitSprites:    equ     14
  756. BitVBL:        equ     15
  757.  
  758. ***************************************************************
  759. *        Interpretor datas zone
  760. *        Pointed to by A5
  761. ***************************************************************
  762.  
  763.         RsReset
  764.  
  765. *************** VBL ROUTINES 
  766. VblRout:    rs.l 8
  767.  
  768. *************** EXTENSIONS
  769. AdTokens:    rs.l 27        
  770. AdTTokens:    rs.l 27
  771. ExtAdr:        rs.l 26*4
  772. ExtTests:    rs.l 8
  773.  
  774. *************** GRAPHICS
  775. AreaSize:    equ 16
  776. AreaInfo:    rs.b 24
  777. AreaBuf:    rs.b AreaSize*5+10
  778.         rs.b 16
  779. TmpRas:        rs.l 2
  780. AppNPlan    rs.w 1
  781. SccEcO:        rs.l 1
  782. SccEcD:        rs.l 1
  783.  
  784. *************** File selector
  785. EdFSel:        rs.w 1        
  786. FsAdEc:        rs.l 1
  787. FsFlag:        rs.w 1
  788. FsActive:    rs.w 1
  789. FsPosF:        rs.w 1
  790. FsSlider:    rs.w 1
  791. FsLPath:    rs.w 1
  792. FsLPath1:    rs.w 1
  793. FsCPath:    rs.w 1
  794. FsLNom:        rs.w 1
  795. FsCNom:        rs.w 1
  796. FsWiAct:    rs.w 1
  797. FsSp:        rs.l 1
  798. FsWy:        rs.w 1
  799. FsWx:        rs.w 1
  800. FsVApp:        rs.w 1
  801.  
  802. ********************************* Editor
  803. BasSp:        rs.l 1    
  804. FkEcran:    rs.l 1    
  805. FkOn:        rs.w 1    
  806. FkJeu:        rs.w 1    
  807. FkOJeu:        rs.w 1    
  808. FkMFlag:    rs.w 1
  809. AmiAff:        rs.w 1
  810. AmiOAff:    rs.w 1
  811.  
  812. EdEcran:    rs.l 1    
  813. EdBufE:        rs.l 1    
  814. EdBufT:        rs.l 1    
  815.  
  816. EdXPos:        rs.w 1    
  817. EdYPos:        rs.w 1
  818. EdXCu:        rs.w 1    
  819. EdYCu:        rs.w 1
  820. EdTabs:        rs.w 1    
  821. EdFlag:        rs.w 1    
  822. EdNLigne:    rs.w 1    
  823. EdIns:        rs.w 1    
  824. EdEdit:        rs.w 1    
  825. EdChange:    rs.w 1    
  826. StModif:    rs.w 1
  827. EdFkCpt:    rs.w 1    
  828. EdAfFk:        rs.w 1
  829. EdMKey:        rs.w 1    
  830. EdMkFl:        rs.w 1    
  831. EdMkIns:    rs.w 1    
  832. EdILigne:    rs.w 1    
  833.  
  834. EtMess:        rs.w 1        
  835. EtAlert:    rs.l 1        
  836. EtCps:        rs.w 1        
  837. EtOCps:        rs.w 1
  838. EtAX:        rs.w 1        
  839. EtAY:        rs.w 1        
  840. EtFr:        rs.w 1        
  841.  
  842. SlDelai:    equ 10        
  843. EtASlX:        rs.w 1
  844. EtASlY:        rs.w 1
  845. WbClose:    rs.w 1        
  846.  
  847. ********************************* Escape
  848. EsFlag:        rs.w 1
  849. EscTFonc:    rs.l 1
  850. LEdXCu:        rs.w 1
  851. LEdYCu:        rs.w 1
  852. ColBack:    rs.w 1
  853. EFkFlag:    rs.w 1
  854. DefFlag:    rs.w 1    
  855.  
  856. ********************************* Float
  857. FloatBase:    rs.l 1
  858. MathBase:    rs.l 1
  859. BuFloat:    rs.b 64
  860. DeFloat:    rs.b 32
  861. TempFl:        rs.l 1
  862. TempBuf:    rs.l 1
  863. ValPi:        rs.l 1
  864. Val180:        rs.l 1
  865. CallAd:        rs.l 1
  866.  
  867. ********************************* Disque I/O
  868. IffParam:    rs.l 1
  869. IffFlag:    rs.l 1
  870. BufFillF:    rs.l 1
  871. FillFLong:    rs.w 1
  872. FillFSize:    rs.w 1
  873. FillFNb:    rs.w 1
  874. FillF32:    rs.w 1
  875. DirLong:    rs.l 1
  876. DirComp:    rs.w 1
  877. DirLNom:    rs.w 1    
  878. PathAct:    rs.l 1
  879. DirFNeg:    rs.l 1    
  880. BufBMHD:    rs.l 1
  881. BufCMAP:    rs.l 1
  882. BufCAMG:    rs.l 1
  883. BufCCRT:    rs.l 1
  884. BufAMSC:    rs.l 1
  885.  
  886. ********************************* Tokenisation / Stockage
  887. TkAd:        rs.l 1    
  888. TkChCar:    rs.w 1    
  889. VerPos:        rs.l 1    
  890. VerBase:    rs.l 1    
  891. Parenth:    rs.w 1    
  892. DtkMaj1:    rs.w 1    
  893. DtkMaj2:    rs.w 1
  894. StTTexte:    rs.l 1    
  895. StHaut:        rs.l 1    
  896. StBas:        rs.l 1    
  897. StMini:        rs.l 1    
  898. StDLigne:    rs.w 1    
  899. StFLigne:    rs.w 1    
  900. StNLigne:    rs.w 1    
  901. LimSave:    rs.w 4
  902. FsLimSave:    rs.w 4
  903. Buffer:        rs.l 1    
  904. BMenage:    rs.l 1
  905. Name1:        rs.l 1    
  906. Name2:        rs.l 1
  907. BufEsc:        rs.l 1    
  908. TBuffer:    equ 1024    
  909. TMenage:    equ TBuffer-64
  910. Access:        rs.l 1        
  911. AcLdTemp:    rs.l 1
  912. AccFlag:    rs.w 1
  913. BBanks:        rs.l 2*16
  914. BankGrab:    rs.w 1
  915. BankFlag:    rs.w 1
  916. RunAct:        rs.l 1
  917. NamePrg:    rs.b 128    
  918. RasAd:        rs.l 1        
  919. RasLong:    rs.l 1
  920. RasSize:    rs.w 1
  921. RasLock:    rs.l 1
  922. ScOn:        rs.w 1
  923. ScOnAd:        rs.l 1
  924. BufBob:        rs.l 1
  925. BufLabel:    rs.l 1
  926. Logo:        rs.l 1
  927. LMouse:        rs.l 1
  928. VBLOCount:    rs.w 1
  929. VBLDelai:    rs.w 1
  930. SScan:        rs.w 1
  931. Seed:        rs.l 1
  932. OldRnd:        rs.l 1
  933. PAmalE:        rs.w 1
  934. DosBase:    rs.l 1
  935. ReqSave:    rs.l 1
  936. ReqSSave:    rs.l 1
  937. SNoFlip:    rs.w 1
  938. LockSave:    rs.l 1
  939. EdDisk:        rs.w 1
  940. Handle:        rs.l 1
  941. PrtHandle:    rs.l 1
  942. PosFillF:    rs.w 1
  943.  
  944. ********************************* Variables / Run
  945. DebSave:    equ __Rs
  946. Passe:        rs.w 1
  947. VarBuf:        rs.l 1        
  948. VarBufL:    rs.l 1        
  949. VarBufFlg:    rs.w 1        
  950. LabHaut:    rs.l 1        
  951. LabBas:        rs.l 1
  952. LabMini:    rs.l 1
  953. DVNmBas:    rs.l 1        
  954. DVNmHaut:    rs.l 1
  955. VNmLong:    rs.l 1
  956. VNmHaut:    rs.l 1
  957. VNmBas:        rs.l 1
  958. VNmMini:    rs.l 1
  959. VDLigne:    rs.l 1
  960. BaTablA:    rs.l 1        
  961. HoTablA:    rs.l 1
  962. VarLong:    rs.w 1
  963. GloLong:    rs.w 1
  964. VarGlo:        rs.l 1
  965. VarLoc:        rs.l 1
  966. TabBas:        rs.l 1
  967. ChVide:        rs.l 1        
  968. LoChaine:    rs.l 1        
  969. HiChaine:    rs.l 1        
  970. HoLoop:        rs.l 1
  971. BaLoop:        rs.l 1
  972.  
  973. Direct:        rs.w 1
  974. DirFlag:    rs.w 1
  975. PLoop:        rs.l 1
  976. MinLoop:    rs.l 1
  977. BasA3:        rs.l 1
  978. ErrRet:        rs.l 1        
  979. ErrRAd:        rs.l 1
  980. Phase:        rs.w 1
  981. DRun:        rs.l 1
  982. DTablA:        rs.l 1
  983. CurTablA:    rs.l 1
  984. PDebug:        rs.l 1
  985. Actual:        rs.w 1
  986. ActuMask:    rs.w 1        
  987. IffMask:    rs.l 1
  988. ExpFlg:        rs.w 1
  989. FixFlg:        rs.w 1
  990.  
  991. *************** ANIMATIONS
  992. AnCanaux:    rs.w 64
  993. InterOff:    rs.w 1
  994.  
  995. *************** DEF SCROLLS
  996. DScrolls:    rs.w 6*16
  997.  
  998. *************** BANKS
  999. ABanks:        rs.l 1
  1000.  
  1001. *************** Disc / Printer
  1002. FhA:        equ 0
  1003. FhT:        equ 4
  1004. FhF:        equ 6
  1005. TFiche:        equ 10
  1006. NFiche:        equ 10
  1007. ChrInp:        rs.w 1
  1008. Fichiers:    rs.b TFiche*NFiche
  1009.  
  1010. *************** MENUS
  1011. MnNDim:        equ 8
  1012. MnBase:        rs.l 1
  1013. MnBaseX:    rs.w 1
  1014. MnBaseY:    rs.w 1
  1015. MnChange:    rs.w 1
  1016. MnMouse:    rs.w 1
  1017. MnError:    rs.w 1
  1018. MnAdEc:        rs.l 1
  1019. MnScOn:        rs.w 1
  1020. MgFlags:    rs.w 1
  1021. MnNZone:    rs.w 1
  1022. MnZoAct:    rs.w 1
  1023. MnAct:        rs.l 1
  1024. MnTDraw:    rs.l 1
  1025. MnTable:    rs.l MnNDim+1
  1026. MnChoix:    rs.w MnNDim
  1027. MnDFlags:    rs.b MnNDim
  1028. MnDAd:        rs.l 1
  1029. MnProc:        rs.w 1
  1030. MnRA3:        rs.l 1
  1031. MnRA4:        rs.l 1
  1032. MnPile:        rs.l 1
  1033. OMnBase:    rs.l 1
  1034. OMnNb:        rs.w 1
  1035. OMnType:    rs.w 1
  1036.  
  1037. *************** Every
  1038. EveType:    rs.w 1
  1039. EveLabel:    rs.l 1
  1040. EveCharge:    rs.w 1
  1041. LogoFlag:    rs.w 1
  1042.  
  1043. *************** Miscellenous
  1044. BuffSize:    rs.l 1
  1045. AdrIcon:    rs.l 1
  1046. IconBase:    rs.l 1
  1047. FolFlg:        rs.w 1
  1048. FolPos:        rs.l 1
  1049. FolPPos:    rs.l 1
  1050. FoLine:        rs.l 1
  1051. CurLigne:    rs.l 1
  1052. DebProc:    rs.l 1
  1053. AdEProc:    rs.l 1
  1054. XEProc:        rs.w 1
  1055. EdBloc:        rs.w 1
  1056. YOBloc:        rs.w 1
  1057. Y1Bloc:        rs.w 1
  1058. Y2Bloc:        rs.w 1
  1059. EdBlocAd:    rs.l 1
  1060. SchFlag:    rs.w 1
  1061. SchMode:    rs.w 1
  1062. DefPal:        rs.w 32
  1063. SchBuf:        rs.b 34
  1064. RepBuf:        rs.b 34
  1065. EdMarks:    rs.l 10
  1066.  
  1067. ********************************* RUN init variables 
  1068. DBugge        rs.l 1
  1069. DebRaz:        equ __Rs
  1070. PrintFlg:    rs.w 1
  1071. PrintPos:    rs.l 1
  1072. PrinType:    rs.w 1
  1073. PrintFile:    rs.l 1
  1074. UsingFlg:    rs.w 1
  1075. ImpFlg:        rs.w 1
  1076. ParamE:        rs.l 1
  1077. ParamF:        rs.l 1
  1078. ParamC:        rs.l 1
  1079. InputFlg:    rs.w 1
  1080. ContFlg:    rs.w 1
  1081. ContChr:    rs.l 1
  1082. ErrorOn:    rs.w 1
  1083. ErrorChr:    rs.l 1
  1084. OnErrLine:    rs.l 1
  1085. TVMax:        rs.w 1
  1086. DProc:        rs.l 1
  1087. AData:        rs.l 1
  1088. PData:        rs.l 1
  1089. Men_Pos:    rs.l 1
  1090. Men_Deb:    rs.l 1
  1091. CallReg:    rs.l 8+7
  1092. MnChoice:    rs.w 1
  1093. Angle:        rs.w 1
  1094. FinRaz:        equ __Rs
  1095. FinSave:    equ __Rs
  1096.  
  1097. ********************************* Total data length
  1098. DataLong:    equ __Rs
  1099.  
  1100.  
  1101.  
  1102.  
  1103.